home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / ACOLLECT.P next >
Text File  |  1990-09-13  |  2KB  |  70 lines
  1. temp <- <primitive 110 13 >
  2. <primitive 112 temp 1        " shallowCopy " \
  3.     #( #[ 32 164 32 163 176 113 81 32 163 178 225 2 7 33 34 \
  4.  32 34 177 208 243 179 242 33 243 245] \
  5.     #(  ) ) >
  6.  
  7. <primitive 112 temp 2        " padTo: " \
  8.     #( #[ 32 163 33 199 247 12 32 32 164 33 32 163 193 176 11 \
  9.  17 248 2 242 32 243 245] \
  10.     #(  ) ) >
  11.  
  12. <primitive 112 temp 3        " next " \
  13.     #( #[ 16 81 192 96 16 32 163 200 247 3 32 16 177 243 245 \
  14. ] \
  15.     #(  ) ) >
  16.  
  17. <primitive 112 temp 4        " lastKey " \
  18.     #( #[ 32 163 243 245] \
  19.     #(  ) ) >
  20.  
  21. <primitive 112 temp 5        " firstKey " \
  22.     #( #[ 81 243 245] \
  23.     #(  ) ) >
  24.  
  25. <primitive 112 temp 6        " first " \
  26.     #( #[ 81 96 16 32 163 200 247 3 32 16 177 243 245] \
  27.     #(  ) ) >
  28.  
  29. <primitive 112 temp 7        " do: " \
  30.     #( #[ 81 32 163 178 225 2 8 34 96 33 32 34 177 180 243 \
  31.  179 242 245] \
  32.     #(  ) ) >
  33.  
  34. <primitive 112 temp 8        " deepCopy " \
  35.     #( #[ 32 164 32 163 176 113 81 32 163 178 225 2 9 33 34 \
  36.  32 34 177 10 20 208 243 179 242 33 243 245] \
  37.     #(  ) ) >
  38.  
  39. <primitive 112 temp 9        " currentKey " \
  40.     #( #[ 16 243 245] \
  41.     #(  ) ) >
  42.  
  43. <primitive 112 temp 10        " copyFrom:to: " \
  44.     #( #[ 34 33 193 81 192 115 32 164 35 176 116 36 81 35 32 \
  45.  33 132 0 242 36 243 245] \
  46.     #( #replaceFrom:to:with:startingAt:  ) ) >
  47.  
  48. <primitive 112 temp 11        " coerce: " \
  49.     #( #[ 32 164 33 163 176 114 34 81 33 163 33 131 0 242 34 \
  50.  243 245] \
  51.     #( #replaceFrom:to:with:  ) ) >
  52.  
  53. <primitive 112 temp 12        " at:ifAbsent: " \
  54.     #( #[ 33 80 200 251 4 33 32 163 204 247 3 34 165 243 242 \
  55.  32 33 177 243 245] \
  56.     #(  ) ) >
  57.  
  58. <primitive 112 temp 13        " = " \
  59.     #( #[ 32 163 33 163 202 247 2 92 243 242 80 114 32 225 3 \
  60.  14 35 33 34 81 192 241 114 177 202 247 2 92 244 243 \
  61.  179 242 91 243 245] \
  62.     #(  ) ) >
  63.  
  64. <primitive 98 #ArrayedCollection \
  65.     <primitive 97 #ArrayedCollection #SequenceableCollection #\smalltlk\prelude\acollect.st \
  66.     #(  #current ) \
  67.     #( #shallowCopy #padTo: #next #lastKey #firstKey #first #do: #deepCopy #currentKey #copyFrom:to: #coerce: #at:ifAbsent: #=  ) \
  68.     temp 5 7 > >
  69.  
  70.